home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1271 / xydriv16.bas < prev    next >
BASIC Source File  |  1997-02-25  |  2KB  |  59 lines
  1. '
  2. ' XYDRIVER.BAS
  3. '
  4.  
  5. Option Explicit
  6.  
  7. DefInt A-Z
  8.  
  9. Global Const XY_IDLE = 0
  10. Global Const XY_RUNNING = -1
  11.  
  12. ' XYDRIVER error codes
  13.  
  14. Global Const XY_NO_ERROR = 0
  15. Global Const XY_UNKNOWN_ERROR = -300
  16. Global Const XY_ALREADY_ACTIVE_ERROR = -301
  17. Global Const XY_CANNOT_OPEN_ERROR = -302
  18. Global Const XY_EMPTY_FILE_ERROR = -303
  19. Global Const XY_NO_STARTUP_CHAR_ERROR = -304
  20. Global Const XY_NOT_NCG_ERROR = -305
  21. Global Const XY_DISK_READ_ERROR = -306
  22. Global Const XY_NO_EOT_ACK_ERROR = -307
  23. Global Const XY_INTERNAL_ERROR = -308
  24. Global Const XY_CANCELLED_ERROR = -309
  25. Global Const XY_OUT_OF_SYNC_ERROR = -310
  26. Global Const XY_RETRIES_ERROR = -311
  27. Global Const XY_BAD_PACKET_NBR_ERROR = -312
  28. Global Const XY_TIMED_OUT_ERROR = -313
  29. Global Const XY_NO_SUCH_FILE_ERROR = -314
  30. Global Const XY_NOT_ACTIVE_ERROR = -315
  31. Global Const XY_PORT_RANGE_ERROR = -316
  32.  
  33. ' xyGetParameter commands
  34.  
  35. Global Const XY_GET_ERROR_CODE = 0
  36. Global Const XY_GET_ERROR_STATE = 1
  37. Global Const XY_GET_PACKET = 2
  38. Global Const XY_GET_STATE = 3
  39. Global Const XY_GET_FILE_SIZE = 4
  40. Global Const XY_GET_NBR_NAKS = 5
  41. Global Const XY_GET_DEBUG = 6
  42. Global Const XY_GET_LAST_GET = 7
  43. Global Const XY_GET_LAST_PUT = 8
  44. Global Const XY_GET_GET_COUNT = 9
  45. Global Const XY_GET_PUT_COUNT = 10
  46. Global Const XY_GET_DRIVER_COUNT = 11
  47.  
  48. Declare Sub xyError Lib "XYDRIV16.DLL" (ByVal Port, ByVal Text As String)
  49. Declare Function xyAbort Lib "XYDRIV16.DLL" (ByVal Port) As Integer
  50. Declare Function xyAcquire Lib "XYDRIV16.DLL" (ByVal Port) As Integer
  51. Declare Function xyDebug Lib "XYDRIV16.DLL" (ByVal Port) As Integer
  52. Declare Function xyDriver Lib "XYDRIV16.DLL" (ByVal Port) As Integer
  53. Declare Function xyGetMessage Lib "XYDRIV16.DLL" (ByVal Text As String, ByVal Size As Integer) As Integer
  54. Declare Function xyGetParameter Lib "XYDRIV16.DLL" (ByVal Port, ByVal Parm As Integer) As Integer
  55. Declare Function xyRelease Lib "XYDRIV16.DLL" (ByVal Port) As Integer
  56. Declare Function xyStartRx Lib "XYDRIV16.DLL" (ByVal Port, ByVal Buffer As String, ByVal NCRchar As Integer, ByVal Batch As Integer) As Integer
  57. Declare Function xyStartTx Lib "XYDRIV16.DLL" (ByVal Port, ByVal Buffer As String, ByVal OneKflag As Integer, ByVal Batch As Integer) As Integer
  58.  
  59.